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ZTITLE "EDTSMCCHANGE = replace a changed Line’ 
MODULE EDTSMCCHANGE ( : replace . changed Lin 
JDENT = *v04-000' ! File: C CHANGE. BLI Edit: JBS1004 
= 


1 
(1) 


BEGIN 


i eeeeeeeereereererereeeerererereeeerererereeteeereeeeeereneeeereeeteeeeeterer 
'@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

'® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'® ALL RIGHTS RESERVED 


® 
on 
& 
® 
HIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
TUN OyAGCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
NCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
IES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY © 
THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
RANSFERRED. . 
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i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
* oRPORA Tihe. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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"FACILITY: EDT -- The DEC Standard Editor 

ABSTRACT: 
Replace a changed Line. 

ENVIRONMENT: Runs at any access mode - AST reentrant 

AUTHOR: Bob Kushlis, CREATION DATE: September 9, 1979 

MODIFIED BY: 

1-001 = Original. DJS 19-FEB-1981. This module was created by 
extracting routine EDTSS$RPL CHGDLN 19 rom module MOVCUR. 


1- 08 = Regularize headers. JBS T1-Mar-1981 
1- - Put edt$$tst_eob in Line. STS 22-Sep-1982 
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- Improve the appearance of the (isting. JBS 17-Jun-1983 
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EDTSMCCHANGE EDTSACCHANGE = replace a changed Line 16-5e Sep-1984 VAX=11 BLiss-32.V4.0-74 p 
Oc 000 Beclerstiens ° Fee eee eee Peel Steaccese saeSmccuance oui?” (28 


TSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


~ 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSSRPL_CHGDLN : NOVALUE; 
' 
| 
| 
| 


; INCLUDE FILES: 
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65 
66 REQUIRE ‘EDTSRC:EDTREQ'; 
68 ; 
i : i MACROS: 
4 : ; NONE 
a 4 ; EQUATED SYMBOLS: 
if si NONE 
Af 48 OWN STORAGE: 
79 bes0 i NONE 
0 9691 i 
1 065¢ i EXTERNAL REFERENCES: 
83 0654 i In the routine 
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EDT HANGE HANGE = replace a changed Line 16-Sep-1984 VAX-11 Bliss-32 V4.0-74 Pa 
L_CHGDLN : replace a Phanged Line 16-00-1984 9}: 93 3 DIKSVMGMASTER-CEDT SRCIMCCHANGE BLIGd?* (33 
ZSBTTL "EDTSSRPL_CHGDLN = replace a changed Line’ 
GLOBAL ROUTINE EDTSSRPL_CHGDLN ! replace a changed Line 
: NOVALUE = 


'e¢ 
! FUNCTIONAL DESCRIPTION: 


This routine replaces the current Line in the work file if it has changed. 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
EDTS$G_ LN. cree 
EDISSG-UN-LEN 
IMPLICIT OUTPUTS: 
EDT$$G_LN_CHGD 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 


SLSSLALAESELER SF 


BEGIN 


EXTERNAL ROUTINE 
EDTSSRPL_LN; 


EXTER 
EDTSS6. LM ~CHGD. ! Indicates current Line has changed. 
EDTSSA_ : REF LIN_BLOCK, 
EDTS$$Z “E08. H 
EDTS$$T—LN_BUF , ' Current Line buffer. 
EDTS$G_LN_ LEN; ! Length of current Line. 


'¢ 


Check the change flag. 


Moronrornoenor 
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IF (.EDTS$G_LN_CHGD NEO 0) 
THEN 
a BEGIN 
Line has changed, replace it unless it is E0B. 
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HANGE = replace a changed Line 18-se Sep-1 VAX-11 Bliss-32 V4.0- . 
L_CHGDLN : replace a ghanged Line ~Sep-1 38 9}: 93 33 DISKSVMSMASTER: CEDT. SRCSMCCHANGE. BLI; rise (3) 


cc 
RP 
| IF (.EDTSSA_WK_LN NEQA EDTS$$Z_EOB_LN) THEN EDTSSRPL_LN (EDTSS$T_LN_BUF, .EDTS$G_LN_LEN); 


vee-d6g 


mn 


'¢ 


And turn the change flag off 
EDTS$$G_LN_CHGD = 0; 
END; 
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eTITLE EDTSMCCHANGE ates aun - replace a changed | 
-IDENT \Vv04-000\ 


.EXTRN EDTSSRPL LN, EDTS$G LN cHGD 
sEXTRN EDTSSA_WR_ LN $$7_€08_L 
SEXTRN EDTSST-LN “BUF, erase. LN tEN 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
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; Routine Size: 51 bytes, Routine Base: _EDTSCODE + 0000 


ore) 1 
0722 1 !<BLF/PAGE> 


END; ! of routine EDTSS$RPL_CHGDLN 
| 
| 
| 
| 
| 
| 


Size: 51 + 0 data bytes 
Run Time : “3 
Sleeced Time: Peat: 


Lines/CPU Min: 323 
Lexemes/CPU-Min: 1333 

Renory Used: 57 pages 
; Compilation Complete 


EDTSMC CHANGE DISMCCHANGE = replace a changed Line Beso 1984 VAX-11 Bliss-32 V4.0-74 Pa 5 | 

Ou +000 EDISSRPL CHEDLN = replace a Phoneed Line 1e-8ep-1986 93; 9 3 STEKSVMGMASTERSLEDT SRCTACCHANGE OLI0t ” (4) | 

; 1% ore 1 END ! of module EDTSMCCHANGE | 

: 1 725 0 ELUDOM | 
| 

: PSECT SUMMARY 

3 Name Bytes Attributes 

: _EDTSCODE 51 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

: Library Statistics 

; woceeen= Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28: (EDT. SRCJEDT.L32;1 377 A 4 0:00.2 

3 Btiitinyy EDT. SRCIPSECTS.L32;1 2 1 36 : 80; :00.1 

s COMMAND QUALIFIERS 

OL ISE/CMECK SCE FELD. INITIAL .OPTIAIZE) /MOTRACEBACK/L 1Se4, 158 AC CHANGE /0BJ=OB JS : RC CHANGE MSRC$:MCCHANGE .BLI/UPDATE=(ENHS$:MCCH 
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